BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / MacTechNotes / Platforms & Tools / Stand-Alone Code.sit / SAGlobalsƒ / SAGlobals.inc1.p < prev next >

MacBinary | 1990-07-15 | 1.8 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: SAGlobals.inc1.p

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jul 15 19:15:45 1990, modified Sun Jul 15 19:15:45 1990, creator 'MPS ', type ASCII, 1170 bytes "SAGlobals.inc1.p" , at 0x512 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 53 41 47 6c 6f 62 | 61 6c 73 2e 69 6e 63 31 |..SAGlob|als.inc1|
|00000010| 2e 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 92 00 | 00 01 7e a2 c6 a9 a1 a2 |........|..~.....|
|00000060| c6 a9 a1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7a d1 00 00 |........|....z...|
|00000080| 49 4d 50 4c 45 4d 45 4e | 54 41 54 49 4f 4e 0d 0d |IMPLEMEN|TATION..|
|00000090| 09 43 4f 4e 53 54 0d 09 | 09 6b 41 70 70 50 61 72 |.CONST..|.kAppPar|
|000000a0| 6d 73 53 69 7a 65 20 3d | 20 33 32 3b 0d 0d 09 46 |msSize =| 32;...F|
|000000b0| 55 4e 43 54 49 4f 4e 20 | 41 35 53 69 7a 65 20 3a |UNCTION |A5Size :|
|000000c0| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 09 09 43 3b 09 45 | Longint|;...C;.E|
|000000d0| 58 54 45 52 4e 41 4c 3b | 20 20 20 20 7b 20 69 6e |XTERNAL;|    { in|
|000000e0| 20 4d 50 57 27 73 20 52 | 75 6e 74 69 6d 65 2e 6f | MPW's R|untime.o|
|000000f0| 20 7d 0d 09 09 0d 09 50 | 52 4f 43 45 44 55 52 45 | }.....P|ROCEDURE|
|00000100| 20 41 35 49 6e 69 74 20 | 28 6d 79 41 35 3a 20 50 | A5Init |(myA5: P|
|00000110| 74 72 29 3b 0d 09 09 43 | 3b 09 45 58 54 45 52 4e |tr);...C|;.EXTERN|
|00000120| 41 4c 3b 20 20 20 20 7b | 20 69 6e 20 4d 50 57 27 |AL;    {| in MPW'|
|00000130| 73 20 52 75 6e 74 69 6d | 65 2e 6f 20 7d 0d 09 0d |s Runtim|e.o }...|
|00000140| 09 50 52 4f 43 45 44 55 | 52 45 20 4d 61 6b 65 41 |.PROCEDU|RE MakeA|
|00000150| 35 57 6f 72 6c 64 20 28 | 56 41 52 20 41 35 52 65 |5World (|VAR A5Re|
|00000160| 66 3a 20 41 35 52 65 66 | 54 79 70 65 29 3b 0d 09 |f: A5Ref|Type);..|
|00000170| 42 45 47 49 4e 0d 09 09 | 41 35 52 65 66 20 3a 3d |BEGIN...|A5Ref :=|
|00000180| 20 4e 65 77 48 61 6e 64 | 6c 65 28 41 35 53 69 7a | NewHand|le(A5Siz|
|00000190| 65 29 3b 0d 09 09 7b 20 | 54 68 65 20 63 61 6c 6c |e);...{ |The call|
|000001a0| 69 6e 67 20 72 6f 75 74 | 69 6e 65 20 6d 75 73 74 |ing rout|ine must|
|000001b0| 20 63 68 65 63 6b 20 41 | 35 52 65 66 20 66 6f 72 | check A|5Ref for|
|000001c0| 20 4e 49 4c 21 20 7d 0d | 09 09 49 46 20 41 35 52 | NIL! }.|..IF A5R|
|000001d0| 65 66 20 3c 3e 20 4e 49 | 4c 20 54 48 45 4e 0d 09 |ef <> NI|L THEN..|
|000001e0| 09 09 42 45 47 49 4e 0d | 09 09 09 09 48 4c 6f 63 |..BEGIN.|....HLoc|
|000001f0| 6b 28 41 35 52 65 66 29 | 3b 0d 09 09 09 09 41 35 |k(A5Ref)|;.....A5|
|00000200| 49 6e 69 74 28 50 74 72 | 28 4c 6f 6e 67 69 6e 74 |Init(Ptr|(Longint|
|00000210| 28 41 35 52 65 66 5e 29 | 20 2b 20 41 35 53 69 7a |(A5Ref^)| + A5Siz|
|00000220| 65 20 2d 20 6b 41 70 70 | 50 61 72 6d 73 53 69 7a |e - kApp|ParmsSiz|
|00000230| 65 29 29 3b 0d 09 09 09 | 09 48 55 6e 6c 6f 63 6b |e));....|.HUnlock|
|00000240| 28 41 35 52 65 66 29 3b | 0d 09 09 09 45 4e 44 3b |(A5Ref);|....END;|
|00000250| 0d 09 45 4e 44 3b 0d 09 | 09 0d 09 46 55 4e 43 54 |..END;..|...FUNCT|
|00000260| 49 4f 4e 20 53 65 74 41 | 35 57 6f 72 6c 64 20 28 |ION SetA|5World (|
|00000270| 41 35 52 65 66 3a 20 41 | 35 52 65 66 54 79 70 65 |A5Ref: A|5RefType|
|00000280| 29 20 3a 20 4c 6f 6e 67 | 69 6e 74 3b 0d 09 42 45 |) : Long|int;..BE|
|00000290| 47 49 4e 0d 09 09 48 4c | 6f 63 6b 28 41 35 52 65 |GIN...HL|ock(A5Re|
|000002a0| 66 29 3b 0d 09 09 53 65 | 74 41 35 57 6f 72 6c 64 |f);...Se|tA5World|
|000002b0| 20 3a 3d 20 53 65 74 41 | 35 28 4c 6f 6e 67 69 6e | := SetA|5(Longin|
|000002c0| 74 28 41 35 52 65 66 5e | 29 20 2b 20 41 35 53 69 |t(A5Ref^|) + A5Si|
|000002d0| 7a 65 20 2d 20 6b 41 70 | 70 50 61 72 6d 73 53 69 |ze - kAp|pParmsSi|
|000002e0| 7a 65 29 3b 0d 09 45 4e | 44 3b 0d 09 09 0d 09 50 |ze);..EN|D;.....P|
|000002f0| 52 4f 43 45 44 55 52 45 | 20 52 65 73 74 6f 72 65 |ROCEDURE| Restore|
|00000300| 41 35 57 6f 72 6c 64 20 | 28 6f 6c 64 41 35 3a 20 |A5World |(oldA5: |
|00000310| 4c 6f 6e 67 69 6e 74 3b | 20 41 35 52 65 66 3a 20 |Longint;| A5Ref: |
|00000320| 41 35 52 65 66 54 79 70 | 65 29 3b 0d 09 42 45 47 |A5RefTyp|e);..BEG|
|00000330| 49 4e 0d 09 09 49 46 20 | 42 6f 6f 6c 65 61 6e 20 |IN...IF |Boolean |
|00000340| 28 53 65 74 41 35 28 6f | 6c 64 41 35 29 29 20 54 |(SetA5(o|ldA5)) T|
|00000350| 48 45 4e 3b 20 20 20 20 | 7b 20 73 69 64 65 20 65 |HEN;    |{ side e|
|00000360| 66 66 65 63 74 20 6f 6e | 6c 79 20 7d 0d 09 09 48 |ffect on|ly }...H|
|00000370| 55 6e 6c 6f 63 6b 28 41 | 35 52 65 66 29 3b 0d 09 |Unlock(A|5Ref);..|
|00000380| 45 4e 44 3b 0d 09 09 0d | 09 50 52 4f 43 45 44 55 |END;....|.PROCEDU|
|00000390| 52 45 20 44 69 73 70 6f | 73 65 41 35 57 6f 72 6c |RE Dispo|seA5Worl|
|000003a0| 64 20 28 41 35 52 65 66 | 3a 20 41 35 52 65 66 54 |d (A5Ref|: A5RefT|
|000003b0| 79 70 65 29 3b 0d 09 42 | 45 47 49 4e 0d 09 09 44 |ype);..B|EGIN...D|
|000003c0| 69 73 70 6f 73 48 61 6e | 64 6c 65 28 41 35 52 65 |isposHan|dle(A5Re|
|000003d0| 66 29 3b 0d 09 45 4e 44 | 3b 0d 09 0d 09 46 55 4e |f);..END|;....FUN|
|000003e0| 43 54 49 4f 4e 20 4f 70 | 65 6e 41 35 57 6f 72 6c |CTION Op|enA5Worl|
|000003f0| 64 20 28 56 41 52 20 41 | 35 52 65 66 3a 20 41 35 |d (VAR A|5Ref: A5|
|00000400| 52 65 66 54 79 70 65 29 | 20 3a 20 4c 6f 6e 67 69 |RefType)| : Longi|
|00000410| 6e 74 3b 0d 09 42 45 47 | 49 4e 0d 09 09 4d 61 6b |nt;..BEG|IN...Mak|
|00000420| 65 41 35 57 6f 72 6c 64 | 28 41 35 52 65 66 29 3b |eA5World|(A5Ref);|
|00000430| 0d 09 09 49 46 20 41 35 | 52 65 66 20 3c 3e 20 4e |...IF A5|Ref <> N|
|00000440| 49 4c 20 54 48 45 4e 0d | 09 09 09 4f 70 65 6e 41 |IL THEN.|...OpenA|
|00000450| 35 57 6f 72 6c 64 20 3a | 3d 20 53 65 74 41 35 57 |5World :|= SetA5W|
|00000460| 6f 72 6c 64 28 41 35 52 | 65 66 29 0d 09 09 45 4c |orld(A5R|ef)...EL|
|00000470| 53 45 0d 09 09 09 4f 70 | 65 6e 41 35 57 6f 72 6c |SE....Op|enA5Worl|
|00000480| 64 20 3a 3d 20 30 3b 0d | 09 45 4e 44 3b 0d 09 0d |d := 0;.|.END;...|
|00000490| 09 50 52 4f 43 45 44 55 | 52 45 20 43 6c 6f 73 65 |.PROCEDU|RE Close|
|000004a0| 41 35 57 6f 72 6c 64 20 | 28 6f 6c 64 41 35 3a 20 |A5World |(oldA5: |
|000004b0| 4c 6f 6e 67 69 6e 74 3b | 20 41 35 52 65 66 3a 20 |Longint;| A5Ref: |
|000004c0| 41 35 52 65 66 54 79 70 | 65 29 3b 0d 09 42 45 47 |A5RefTyp|e);..BEG|
|000004d0| 49 4e 0d 09 09 52 65 73 | 74 6f 72 65 41 35 57 6f |IN...Res|toreA5Wo|
|000004e0| 72 6c 64 28 6f 6c 64 41 | 35 2c 20 41 35 52 65 66 |rld(oldA|5, A5Ref|
|000004f0| 29 3b 0d 09 09 44 69 73 | 70 6f 73 65 41 35 57 6f |);...Dis|poseA5Wo|
|00000500| 72 6c 64 28 41 35 52 65 | 66 29 3b 0d 09 45 4e 44 |rld(A5Re|f);..END|
|00000510| 3b 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;.......|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000590| 6d b6 db 6d b6 db 6d b6 | db 6d b6 db 6d b6 db 6d |m..m..m.|.m..m..m|
|000005a0| b6 db 6d b6 db 6d b6 db | 6d b6 db 6d b6 db 6d b6 |..m..m..|m..m..m.|
|000005b0| 10 53 41 47 6c 6f 62 61 | 6c 73 2e 69 6e 63 31 2e |.SAGloba|ls.inc1.|
|000005c0| 70 47 02 00 00 00 50 61 | 72 74 53 49 54 78 00 00 |pG....Pa|rtSITx..|
|000005d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a9 7f fe 9f 00 00 | 00 00 00 00 01 7e db 6d |........|.....~.m|
|00000600| b6 db 6d b6 db 6d b6 db | 6d b6 db 6d b6 db 6d b6 |..m..m..|m..m..m.|
|00000610| db 6d b6 db 6d b6 db 6d | b6 db 6d b6 db 6d b6 db |.m..m..m|..m..m..|
|00000620| 6d b6 db 6d b6 db 6d b6 | db 6d b6 db 6d b6 db 6d |m..m..m.|.m..m..m|
|00000630| b6 db 6d b6 db 6d b6 db | 6d b6 db 6d b6 db 6d b6 |..m..m..|m..m..m.|
|00000640| db 6d b6 db 6d b6 db 6d | b6 db 6d b6 db 6d b6 db |.m..m..m|..m..m..|
|00000650| 6d b6 db 6d b6 db 6d b6 | db 6d b6 db 6d b6 db 6d |m..m..m.|.m..m..m|
|00000660| b6 db 6d b6 db 6d b6 db | 6d b6 db 6d b6 db 6d b6 |..m..m..|m..m..m.|
|00000670| db 6d b6 db 6d b6 db 6d | b6 db 6d b6 db 6d b6 db |.m..m..m|..m..m..|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 5d |...H..Mo|naco...]|
|00000690| 1b 74 00 00 00 00 00 00 | 00 00 00 02 00 00 00 26 |.t......|.......&|
|000006a0| 00 50 00 00 00 00 00 06 | 00 04 00 50 00 20 01 dd |.P......|...P. ..|
|000006b0| 02 3d 00 50 00 20 01 dd | 02 3d a2 c6 55 41 00 00 |.=.P. ..|.=..UA..|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000006d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 5b 6c 70 |...L...L|...2.[lp|
|000006e0| 04 c8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000006f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 5d 13 44 00 00 |........|...].D..|
+--------+-------------------------+-------------------------+--------+--------+